delphi中显示PNG图像 实例

【例子介绍】用来显示PNG图像的控件，支持PNG图片的Alpha通道。支持半透明特效，是GIF的替代格式。直接在uses单元引用pngimage就可以在标准Image中使用，可以不用安装。
【相关图片】
【源码结构】

uses pngimage;

var
Png: TPngObject;
begin
Png := TPngObject.Create;
try
Png.LoadFromFile('test.png');
image1.Picture.Assign(Png);
finally
Png.Free;
end;
end;